#!/usr/bin/perl

use warnings;
use strict;

open (SAMPLE, "sample.file");

foreach (<SAMPLE>) {
    if ( /(.*):.*:.*:.*:(.*)/ ) {
        printf "%s get \$%d every year.\n", $1, ($2 + 250);
    }
}

close SAMPLE;
